Private WithEvents NewAge As GetAge

Private Sub cmdcalcage_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCalcAge.Click
        NewAge = New GetAge()
        If Not IsNumeric(txtAgeLimit.Text) Then
            MsgBox("Please enter a valid age limit", _
                MsgBoxStyle.Critical, Me.Text)
            Exit Sub
        ElseIf Not IsDate(mskDate.FormattedText) Then
            MsgBox("An invalid date was entered.", _
                MsgBoxStyle.Critical, Me.Text)
            Exit Sub
        End If
        NewAge.AgeLimit = CShort(txtAgeLimit.Text)
        NewAge.Birthdate = mskDate.FormattedText
        NewAge.CalcAge()
    End Sub

Private Sub newage_underage() Handles NewAge.underage
    MsgBox("This person is under the age limit of: " & _
        NewAge.AgeLimit & " with an age of: " & NewAge.Age)
End Sub

Private Sub newage_overage() Handles NewAge.overage
    MsgBox("This person is over the age limit of: " & _
        NewAge.AgeLimit & " with an age of: " & NewAge.Age)
End Sub
